home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / OOmodules / library / reqtools_test.e < prev    next >
Encoding:
Text File  |  1980-05-10  |  796 b   |  34 lines
  1. MODULE '*reqtools','libraries/reqtools'
  2.  
  3. -> Only need 'libraries/reqtools' for the CONST now.
  4.  
  5. -> NOTE: Some modifications by JEVR3 to reflect enhancements
  6.  
  7. PROC main()
  8. DEF req:PTR TO reqtools
  9.  
  10. -> JEVR3: Now uses 'new()' to set up library.
  11.  
  12.   NEW req.new()
  13.  
  14. -> JEVR3: uncommented this part.
  15.  
  16.   req.ez('Nice to see ya!','Ah.|So what?',0,0,[RTEZ_REQTITLE,'Just a test',RT_REQPOS,REQPOS_POINTER,0])
  17.  
  18. -> JEVR3: compressed some lines a little bit.
  19.  
  20.   WriteF('\s\n',req.string('Just enter a string:'))
  21.   WriteF('\s\n',req.string('Just enter a string:'))
  22.  
  23.   WriteF('\d\n', req.long('Just enter a number:'))
  24.  
  25.   
  26.   WriteF('\d\n', req.palette('just choose a colour:'))
  27.  
  28.   req.file('FILE?')
  29.   WriteF('\s\n', req.filebuf)
  30.   WriteF('\s\n', req.dirbuf)
  31.   END req
  32.   -> automatically closes the library!
  33. ENDPROC
  34.